From 58ca42befb294de4d8b9b5131f77d45524b84913 Mon Sep 17 00:00:00 2001 From: Camm Maguire Date: Mon, 30 Dec 2019 15:46:22 +0000 Subject: [PATCH] pathnames1.13 Gbp-Pq: Name pathnames1.13 --- lsp/gcl_iolib.lsp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lsp/gcl_iolib.lsp b/lsp/gcl_iolib.lsp index 60a18d99..d3bca684 100755 --- a/lsp/gcl_iolib.lsp +++ b/lsp/gcl_iolib.lsp @@ -460,7 +460,8 @@ (defun load-pathname-exists (z) (or (probe-file z) (when *allow-gzipped-file* - (probe-file (string-concatenate (namestring z) ".gz"))))) + (when (probe-file (string-concatenate (namestring z) ".gz")) + z)))) (defun load-pathname (p print if-does-not-exist external-format &aux (pp (merge-pathnames p)) -- 2.30.2